library(leaflet)
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio
class(scotland)
[1] "sf"         "tbl_df"     "tbl"        "data.frame"
head(scotland, 14)
Simple feature collection with 14 features and 4 fields
Geometry type: MULTIPOLYGON
Dimension:     XY
Bounding box:  xmin: 5512.998 ymin: 530250.8 xmax: 470332 ymax: 1220302
Projected CRS: OSGB 1936 / British National Grid
scotland_geometry <- st_geometry(scotland)

scotland_geometry

lothian <- scotland_simple %>% 
  filter(HBName == "Lothian")
plot(lothian)
ggplot(data = lothian) +
  geom_sf(aes()) +
  theme_minimal() +
  ggtitle("Lothian") + 
    xlab("Longitude") + ylab("Latitude")

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHNmKQpsaWJyYXJ5KHJtYXBzaGFwZXIpCmxpYnJhcnkoaGVyZSkKbGlicmFyeShsZWFmbGV0KQpgYGAKCmBgYHtyfQpzY290bGFuZCA8LSByZWFkX3NmKGhlcmUoImRhdGFfcmF3L1NHX05IU19IZWFsdGhCb2FyZHNfMjAxOS9TR19OSFNfSGVhbHRoQm9hcmRzXzIwMTkuc2hwIikpCmBgYAoKYGBge3J9CmNsYXNzKHNjb3RsYW5kKQpgYGAKCmBgYHtyfQpoZWFkKHNjb3RsYW5kLCAxNCkKYGBgCgpgYGB7cn0Kc2NvdGxhbmRfZ2VvbWV0cnkgPC0gc3RfZ2VvbWV0cnkoc2NvdGxhbmQpCgpzY290bGFuZF9nZW9tZXRyeQpgYGAKCmBgYHtyfQpzY290bGFuZF9zaW1wbGUgPC0gbXNfc2ltcGxpZnkoc2NvdGxhbmQpCmBgYAoKYGBge3J9CnBsb3Qoc2NvdGxhbmRfc2ltcGxlKQpgYGAKCmBgYHtyfQpwbG90KHNjb3RsYW5kX3NpbXBsZSBbMl0pCmBgYAoKYGBge3J9CmdncGxvdChkYXRhID0gc2NvdGxhbmRfc2ltcGxlKSArCiAgZ2VvbV9zZihhZXMoKSkgKwogIHRoZW1lX21pbmltYWwoKSArCiAgZ2d0aXRsZSgiU2NvdGxhbmQiKSArIAogICAgeGxhYigiTG9uZ2l0dWRlIikgKyB5bGFiKCJMYXRpdHVkZSIpCmBgYAoKYGBge3J9CmxvdGhpYW4gPC0gc2NvdGxhbmRfc2ltcGxlICU+JSAKICBmaWx0ZXIoSEJOYW1lID09ICJMb3RoaWFuIikKYGBgCgpgYGB7cn0KcGxvdChsb3RoaWFuKQpgYGAKCmBgYHtyfQpnZ3Bsb3QoZGF0YSA9IGxvdGhpYW4pICsKICBnZW9tX3NmKGFlcygpKSArCiAgdGhlbWVfbWluaW1hbCgpICsKICBnZ3RpdGxlKCJMb3RoaWFuIikgKyAKICAgIHhsYWIoIkxvbmdpdHVkZSIpICsgeWxhYigiTGF0aXR1ZGUiKQpgYGAKCmBgYHtyfQphbGNvaG9sIDwtIHJlYWRfY3N2KCIuLi9kYXRhX2NsZWFuL2FsY29ob2wuY3N2IikgJT4lIAogIGZpbHRlcihzZXggPT0gIkFsbCIpICU+JSAKICBmaWx0ZXIoZGF0ZV9jb2RlID09ICIyMDE2LTIwMTkiKSAlPiUgCiAgZmlsdGVyKGFsY29ob2xfY29uc3VtcHRpb24gPT0gIkhhemFyZG91cy9IYXJtZnVsIGRyaW5rZXIiKQoKc2NvdGxhbmRfc2ltcGxlICU+JSAKICBsZWZ0X2pvaW4oYWxjb2hvbCwgYnkgPSBjKCJIQkNvZGUiID0gImZlYXR1cmVfY29kZSIpKSAlPiUgCmdncGxvdCgpICsKICBnZW9tX3NmKGFlcyhncm91cCA9IGhiX25hbWUsIGZpbGwgPSB2YWx1ZSkpICsKICB0aGVtZV9taW5pbWFsKCkgKwogIGdndGl0bGUoIkFsY29ob2wgQ29uc3VtcHRpb24gaW4gU2NvdGxhbmQiKSArIAogIHNjYWxlX2ZpbGxfZ3JhZGllbnQobG93ID0gImdyZWVuIiwgaGlnaCA9ICJyZWQiKQpgYGAKCmBgYHtyfQpvYmVzaXR5IDwtIHJlYWRfY3N2KCIuLi9kYXRhX2NsZWFuL29iZXNpdHkuY3N2IikgJT4lIAogIGZpbHRlcihzZXggPT0gIkFsbCIpICU+JSAKICBmaWx0ZXIoZGF0ZV9jb2RlID09ICIyMDE2LTIwMTkiKSAlPiUgCiAgZmlsdGVyKG9iZXNpdHkgPT0gIk9iZXNlIikKCnNjb3RsYW5kX3NpbXBsZSAlPiUgCiAgbGVmdF9qb2luKG9iZXNpdHksIGJ5ID0gYygiSEJDb2RlIiA9ICJmZWF0dXJlX2NvZGUiKSkgJT4lIApnZ3Bsb3QoKSArCiAgZ2VvbV9zZihhZXMoZ3JvdXAgPSBoYl9uYW1lLCBmaWxsID0gdmFsdWUpKSArCiAgdGhlbWVfbWluaW1hbCgpICsKICBnZ3RpdGxlKCJPYmVzaXR5IGluIFNjb3RsYW5kIikgKyAKICAgIHhsYWIoIkxvbmdpdHVkZSIpICsgeWxhYigiTGF0aXR1ZGUiKSArCiAgc2NhbGVfZmlsbF9ncmFkaWVudChsb3cgPSAiZ3JlZW4iLCBoaWdoID0gInJlZCIpCmBgYAoKYGBge3J9CnNtb2tpbmdfc3RhdHVzIDwtIHJlYWRfY3N2KCIuLi9kYXRhX2NsZWFuL3Ntb2tpbmdfc3RhdHVzLmNzdiIpICU+JSAKICBmaWx0ZXIoc2V4ID09ICJBbGwiKSAlPiUgCiAgZmlsdGVyKGRhdGVfY29kZSA9PSAiMjAxNi0yMDE5IikgJT4lIAogIGZpbHRlcihzbW9raW5nX3N0YXR1cyA9PSAiQ3VycmVudCBzbW9rZXIiKQoKc2NvdGxhbmRfc2ltcGxlICU+JSAKICBsZWZ0X2pvaW4oc21va2luZ19zdGF0dXMsIGJ5ID0gYygiSEJDb2RlIiA9ICJmZWF0dXJlX2NvZGUiKSkgJT4lIApnZ3Bsb3QoKSArCiAgZ2VvbV9zZihhZXMoZ3JvdXAgPSBoYl9uYW1lLCBmaWxsID0gdmFsdWUpKSArCiAgdGhlbWVfbWluaW1hbCgpICsKICBnZ3RpdGxlKCJTbW9raW5nIFN0YXR1cyBpbiBTY290bGFuZCIpICsgCiAgICB4bGFiKCJMb25naXR1ZGUiKSArIHlsYWIoIkxhdGl0dWRlIikgKwogIHNjYWxlX2ZpbGxfZ3JhZGllbnQobG93ID0gImdyZWVuIiwgaGlnaCA9ICJyZWQiKQpgYGAKCmBgYHtyfQplX2NpZyA8LSByZWFkX2NzdigiLi4vZGF0YV9jbGVhbi9lX2NpZy5jc3YiKSAlPiUgCiAgZmlsdGVyKHNleCA9PSAiQWxsIikgJT4lIAogIGZpbHRlcihkYXRlX2NvZGUgPT0gIjIwMTYtMjAxOSIpICU+JSAKICBmaWx0ZXIoZV9jaWdhcmV0dGVfdXNlID09ICJDdXJyZW50bHkgdXNpbmciKQoKc2NvdGxhbmRfc2ltcGxlICU+JSAKICBsZWZ0X2pvaW4oZV9jaWcsIGJ5ID0gYygiSEJDb2RlIiA9ICJmZWF0dXJlX2NvZGUiKSkgJT4lIApnZ3Bsb3QoKSArCiAgZ2VvbV9zZihhZXMoZ3JvdXAgPSBoYl9uYW1lLCBmaWxsID0gdmFsdWUpKSArCiAgdGhlbWVfbWluaW1hbCgpICsKICBnZ3RpdGxlKCJFLWNpZ2FyZXR0ZSB1c2UgaW4gU2NvdGxhbmQiKSArIAogICAgeGxhYigiTG9uZ2l0dWRlIikgKyB5bGFiKCJMYXRpdHVkZSIpICsKICBzY2FsZV9maWxsX2dyYWRpZW50KGxvdyA9ICJncmVlbiIsIGhpZ2ggPSAicmVkIikKYGBgCgpgYGB7cn0Kc3VtbWFyeV9hY3Rpdml0eSA8LSByZWFkX2NzdigiLi4vZGF0YV9jbGVhbi9zdW1tYXJ5X2FjdGl2aXR5LmNzdiIpICU+JSAKICBmaWx0ZXIoc2V4ID09ICJBbGwiKSAlPiUgCiAgZmlsdGVyKGRhdGVfY29kZSA9PSAiMjAxNi0yMDE5IikgJT4lIAogIGZpbHRlcihzdW1tYXJ5X2FjdGl2aXR5X2xldmVscyA9PSAiTWVldHMgcmVjb21tZW5kYXRpb25zIikKCnNjb3RsYW5kX3NpbXBsZSAlPiUgCiAgbGVmdF9qb2luKHN1bW1hcnlfYWN0aXZpdHksIGJ5ID0gYygiSEJDb2RlIiA9ICJmZWF0dXJlX2NvZGUiKSkgJT4lIApnZ3Bsb3QoKSArCiAgZ2VvbV9zZihhZXMoZ3JvdXAgPSBoYl9uYW1lLCBmaWxsID0gdmFsdWUpKSArCiAgdGhlbWVfbWluaW1hbCgpICsKICBnZ3RpdGxlKCJTdW1tYXJ5IEFjdGl2aXR5IGluIFNjb3RsYW5kIikgKyAKICAgIHhsYWIoIkxvbmdpdHVkZSIpICsgeWxhYigiTGF0aXR1ZGUiKSArCiAgc2NhbGVfZmlsbF9ncmFkaWVudChsb3cgPSAiZ3JlZW4iLCBoaWdoID0gInJlZCIpCmBgYAo=